home *** CD-ROM | disk | FTP | other *** search
/ Belgian Amiga Club - ADF Collection / BS1 part 41.zip / BS1 part 41 / Lattice C v5.02 d4.adf / examples / debugger / libraries.cpr < prev    next >
Text File  |  1988-11-07  |  544b  |  15 lines
  1. /* Display the libraries in the system */
  2. execbase = import("00000004"x,4)
  3. liboff   = 378
  4. nodebase = import(offset(execbase, liboff), 4)
  5.  
  6. 'd "  Address NT Pri Open Name"'
  7. do while(import(nodebase,4) ~= "00000000"x)
  8.    nt      = right(c2d(import(offset(nodebase,8),1),1),3)
  9.    pri     = right(c2d(import(offset(nodebase,9),1),1),4)
  10.    namestr = import(import(offset(nodebase,10),4))
  11.    opencnt = right(c2d(import(offset(nodebase,32),2),2),5)
  12.    'd "$'||c2x(nodebase)||nt||pri||opencnt||' \"'||namestr||'\""'
  13.    nodebase = import(nodebase,4)
  14. end
  15.